program Project1; // Zadanie 5.5

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b, pole : Real;

procedure czytaj_dane(); // deklaracja i definicja procedury czytaj_dane()
  begin
    Writeln('Program oblicza pole prostokata.');
    Writeln('Podaj bok a.');
    Readln(a);
    Writeln('Podaj bok b.');
    Readln(b);
  end;

procedure przetworz_dane(); // deklaracja i definicja procedury przetworz_dane()
  begin
    pole:=a*b;
  end;

procedure wyswietl_wynik(); // deklaracja i definicja procedury wyswietl_wynik()
  begin
    Writeln('Pole prostokata o boku a = ', a:4:2, ' i boku b = ', b:4:2);
    Writeln('wynosi ', pole:4:2, '.');
  end;

begin
   czytaj_dane(); // wywolanie procedury czytaj_dane()
   przetworz_dane(); // wywolanie procedury przetworz_dane()
   wyswietl_wynik(); // wywolanie procedury wyswietl_wynik()

  Readln; // czeka na nacisniecie klawisza ENTER
end.
